val init_and_get :
  int ->
  int ->
  string ->
  (float * float -> bool) ->
  (float * float -> Gl.rgb) ->
  (unit -> unit) * (int -> int -> unit) * (unit -> unit) * (int -> unit) *
  (x:float -> y:float -> unit) * (x:float -> y:float -> unit) *
  (float * float * float -> unit) * (unit -> float * float * float) *
  (float * float * float -> unit) * (unit -> float * float * float) *
  (bool -> unit) * (string -> unit) *
  (bool -> float * float * float -> float * float * float -> unit) *
  (bool -> unit) * (unit -> bool) * (float -> unit)
